﻿Module Module1
  Sub Main()
    Console.WriteLine("Inserire un numero: ")
    Dim numero As Integer = _
        CType(Console.ReadLine(), Integer)
    Console.WriteLine(numero Mod 2)
    Console.WriteLine(numero)
    ' If ... Then ... su unica riga
    If numero Mod 2 <> 0 Then _
        Console.WriteLine("Dispari")
    ' If ... Then ... su più righe
    If numero Mod 2 = 0 Then
      Console.WriteLine("Pari")
    End If
    ' If ... Then ... Else ... su unica riga
    If numero Mod 2 <> 0 _
        Then Console.WriteLine("Dispari") _
        Else Console.WriteLine("Pari")
    ' If ... Then ... Else ... su più righe
    If numero Mod 2 <> 0 Then
      Console.WriteLine("Dispari")
    Else
      Console.WriteLine("Pari")
    End If
    Console.ReadLine()
  End Sub
End Module

